home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-07_1985_Verlag_Heinz_Weise_de.d64 / T R I (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  507 lines
  1. 100 poke50257,0
  2. 200 poke53280,0:poke53281,0
  3. 220 poke45,2:poke46,64:poke256*64,0:clr
  4. 221 poke2,0
  5. 224 dimp(6,19),a$(6),g$(6),g(6),w(6)
  6. 225 dimk$(9,6),e$(4),v1(6)
  7. 226 printchr$(147);:p$=" ":c$=chr$(18)
  8. 227 e$(1)=c$+" [213]ngueltig: "
  9. 228 e$(4)=c$+" [194]elegt   : "
  10. 229 e$(2)=" [197]intrag  : ":poke646,14
  11. 230 e$(3)=" [215]eiter   : ":b1$="                                       "
  12. 231 cu=58640:db=30:b2$="          "
  13. 232 si=54272:v=53248:w8=si+4:w9=si+18
  14. 233 pokev+22,204
  15. 234 fori=0to7:poke2040+i,248+i:nexti
  16. 238 readuu:g(0)=peek(65):w(0)=peek(66)
  17. 239 pokev+23,127:pokev+24,23:pokev+28,1
  18. 240 pokev+27,86:pokev+29,127:pokev+39,7
  19. 242 pokev+40,4:pokev+41,8:pokev+42,7
  20. 243 pokev+43,4:pokev+44,7:pokev+45,3
  21. 244 pokev+46,1:pokev+37,10:pokev+38,5
  22. 245 fori=1to22:readua$:nexti
  23. 246 v1(0)=peek(65):p(0,0)=peek(66)
  24. 247 gosub250:gosub258
  25. 248 gosub275:goto318
  26. 250 pokev,46:pokev+1,77:pokev+2,65
  27. 251 pokev+3,57:pokev+4,106:pokev+5,87
  28. 252 pokev+6,134:pokev+7,67:pokev+8,166
  29. 253 pokev+9,77:pokev+10,191:pokev+11,72
  30. 254 pokev+12,231:pokev+13,87
  31. 255 pokev+14,111:pokev+15,69
  32. 256 return
  33. 258 h=4.5:pokesi+24,15
  34. 259 foruu=0to50:h=h+3
  35. 260 pokesi+5,255:pokesi+6,252
  36. 261 pokesi+1,240-h:pokew8,33
  37. 262 pokew8,32:pokew8,17:pokew8,16
  38. 263 nextuu:pokew8,0
  39. 264 pokesi+23,246:pokesi+24,31
  40. 265 pokesi+19,9:pokesi+20,255
  41. 266 pokesi+15,4:pokesi+14,10:pokesi+22,0
  42. 267 pokesi+12,5:pokesi+13,255
  43. 268 pokesi+8,4:pokesi+7,10:pokev+21,255
  44. 269 pokew9,129:pokesi+11,129
  45. 271 pokew9,128:pokesi+11,128
  46. 273 gosub275:return
  47. 275 pokesi+3,12:pokesi+2,15
  48. 276 pokesi+5,34:pokesi+19,34
  49. 277 pokesi+6,242:pokesi+20,242
  50. 278 pokesi+23,112
  51. 279 return
  52. 280 reads6,s7,s8,s9,da:ifs6>-3then282
  53. 281 poke65,v1(0):poke66,p(0,0):goto280
  54. 282 pokesi,s7:pokesi+1,s6:pokesi+14,s9
  55. 283 pokesi+15,s8:pokew8,65:pokew9,33
  56. 284 foruu=0toda-(db):nextuu
  57. 285 pokew8,64:pokew9,32
  58. 286 return
  59. 288 pokesi+11,0:pokesi+24,31:pokesi+9,0:pokesi+10,3
  60. 289 pokesi+12,255:pokesi+13,205
  61. 290 pokesi+8,31:pokesi,7:pokesi+11,65
  62. 291 pokesi+11,64:pokesi+8,15:pokesi+7,132
  63. 292 pokesi+11,65:pokesi+11,64
  64. 293 return
  65. 296 pokew8,0:pokesi+5,255:pokesi+6,251
  66. 297 pokesi,0:pokesi+1,100:pokew8,33:pokew8,32
  67. 298 return
  68. 300 k1%=rnd(0)*255
  69. 301 k2%=rnd(0)*200
  70. 302 k3%=(rnd(1)*7+.5)*2
  71. 303 pokev+k3%,k1%:pokev+1+k3%,k2%
  72. 305 gosub280:return
  73. 307 forx=1to5:ifw(x)>0then309
  74. 308 w(x)=int(rnd(1)*6)+1
  75. 309 gosub288:gosub296
  76. 310 nextx:poke214,0:poke211,35:syscu:printw1;
  77. 312 poke2,3:gosub803:return
  78. 314 ua$=right$(p$+str$(uu),3):poke199,1
  79. 315 return
  80. 318 x$=c$+chr$(150)+chr$(42)
  81. 319 fori=1to9:forj=1to6:gosub300
  82. 320 k$(i,j)=c$+chr$(150)+chr$(32)
  83. 321 nextj,i
  84. 322 forj=2to6:gosub300
  85. 323 ifj>3thenk$(3,j)=x$
  86. 324 ifj>3thenk$(7,j)=x$
  87. 325 ifj=3thenk$(5,j)=x$
  88. 326 gosub300
  89. 327 ifj=5thenk$(5,j)=x$
  90. 328 ifj=6thenk$(4,j)=x$
  91. 329 ifj=6thenk$(6,j)=x$
  92. 330 gosub300:k$(1,j)=x$:k$(9,j)=x$
  93. 331 nextj:k$(5,1)=x$:poke646,14:gosub300
  94. 332 fori=1to5:g$(i)="..........":gosub300:g(i)=0:nexti
  95. 333 gosub339:gosub358:gosub370:gosub386
  96. 334 gosub417:gosub431:goto448
  97. 339 fori=1to6:a$(i)="":k=0
  98. 340 gosub300:w1=0:nexti
  99. 341 ifpeek(2)=1then343
  100. 342 ifpeek(203)=64thengosub300:goto342
  101. 343 gosub250:gosub803
  102. 344 gosub275:return
  103. 358 printchr$(147):poke646,14:db=0
  104. 359 poke214,14:poke211,18:syscu
  105. 360 gosub264
  106. 361 foruu=1to18:printchr$(164);:nextuu:poke214,15:poke211,18:syscu
  107. 362 printc$;"  [211]core - [212]able : "
  108. 363 forz=16to20
  109. 364 poke214,z:poke211,17:syscu
  110. 365 uu=g(z-15):gosub314
  111. 367 printz-15;"[157]. ";g$(z-15);"  ";ua$;" ":nextz:uu=g(6):gosub314
  112. 368 poke214,21:poke211,18:syscu
  113. 369 print"  [204]ast [211]core  ";ua$;" ":return
  114. 370 poke214,14:poke211,2:syscu
  115. 371 poke646,5:poke199,0
  116. 372 foruu=1to10:printchr$(164);:nextuu:print
  117. 373 print"  ";c$;" [208] = [208]lay "
  118. 374 print"  ";c$;" [201] = [201]nfo "
  119. 375 print"  ";c$;"          ";:poke204,0
  120. 376 getx$:ifx$=""thengoto376
  121. 377 ifpeek(207)then377
  122. 378 poke204,1
  123. 379 ifx$="_"thengosub275:goto376
  124. 380 ifx$="p"thenreturn
  125. 381 ifx$<>"i"then370
  126. 382 poke646,7:gosub832:gosub358:goto370
  127. 386 print:print
  128. 387 print"  [193]nzahl [211]pieler"
  129. 388 print"    - 6 max. -":printspc(7);"?";chr$(157);
  130. 389 poke204,0
  131. 390 getx$:ifx$<"1"orx$>"6"thengosub296:goto390
  132. 391 a=asc(x$):a=a-48
  133. 393 ifpeek(207)then393
  134. 394 poke204,1:gosub803:printx$;
  135. 396 fori=1toa
  136. 397 poke214,23:poke211,2:syscu
  137. 398 printc$;" [206]ame [211]pieler";i;": ..........";
  138. 400 poke211,20:syscu:a$="":poke204,0
  139. 401 getx$:ifx$=""thengosub296:goto401
  140. 402 gosub803:x=asc(x$)
  141. 403 ifx=13then408
  142. 404 ifx=95then397
  143. 405 if(x<32orx>127)and(x<192orx>233)then401
  144. 406 iflen(a$)>9then409
  145. 407 printx$;:a$=a$+x$:goto401
  146. 408 iflen(a$)<10thena$=a$+".":goto408
  147. 409 a$(i)=a$
  148. 411 ifpeek(207)then411
  149. 412 poke204,1:printc$p$;
  150. 413 nexti:return
  151. 417 pokev+33,9:pokev+21,0:poke646,7:db=0
  152. 419 poke65,g(0):poke66,w(0):gosub264:printchr$(147);
  153. 420 fori=1to2400:next:pokev+21,0
  154. 421 fori=1to22:read ua$
  155. 422 ifi=2then printchr$(30);
  156. 423 ifi=3then printchr$(159);
  157. 424 ifi=10then printchr$(158);
  158. 425 ifi=18then printchr$(154);
  159. 426 ifi=21then printchr$(30);
  160. 427 ifi=1ori=2ori=9ori=17ori=21then printc$;
  161. 428 print" ";ua$:nexti:ua$=""
  162. 429 return
  163. 431 poke646,3:printchr$(19)
  164. 432 fori=1to20
  165. 433 printchr$(166)
  166. 434 nexti
  167. 435 forz=1to20:fors=14to38step4
  168. 436 poke214,z:poke211,s:syscu
  169. 437 ifs=38thenprintchr$(166);:goto439
  170. 438 printchr$(221);
  171. 439 nexts,z
  172. 440 poke646,13:poke214,1:poke211,15:syscu:fori=1toa
  173. 441 printc$chr$(166)chr$(166)chr$(166)chr$(146)chr$(221);:nexti
  174. 442 fori=1to6:forj=1to19:p(i,j)=0
  175. 443 nextj,i
  176. 444 return
  177. 448 fori=1to13
  178. 449 forj=1toa:sw=1
  179. 450 gosub744
  180. 451 forq=1to5:w(q)=0:w1(q)=0:nextq
  181. 452 forw1=1to3
  182. 453 gosub307
  183. 454 gosub760:sw=0:gosub628
  184. 455 ifv8=1thengosub457:goto467
  185. 456 goto467
  186. 457 gosub250:gosub258:db=0:pokev+21,255
  187. 458 foruu=2040to2047:pokeuu,rnd(0)*256:nextuu
  188. 459 k1%=rnd(0)*3:k2%=rnd(0)*3:k1%=k1%*3+16:k2%=k2%*3
  189. 460 pokev+17,k1%:pokev+22,k2%
  190. 461 foruu=vtov+15:pokeuu,rnd(0)*256:nextuu
  191. 462 db=db+1:ifdb<50then458
  192. 463 pokev+17,27:pokev+22,204
  193. 464 foruu=0to7:poke2040+uu,248+uu:nextuu
  194. 465 pokev+21,0:pokev+30,0:db=0
  195. 466 foruu=1to511:nextuu:gosub250:return
  196. 467 ifw1>=3then497
  197. 468 poke214,23:poke211,26:syscu
  198. 469 printe$(3);:poke204,0
  199. 470 getx$:ifx$=""then470
  200. 471 ifpeek(207)then471
  201. 472 poke204,1
  202. 473 x=asc(x$)
  203. 474 ifx=13then489
  204. 475 x=x-48
  205. 476 ifx=9then479
  206. 477 ifx=8then454
  207. 478 goto480
  208. 479 forx=1to5:gosub482:nextx:goto489
  209. 480 ifx<1orx>5then468
  210. 481 gosub482:goto468
  211. 482 w(x)=w(x)*-1:s=(-3)+(x*4)
  212. 483 forz=22to24
  213. 484 poke214,z:poke211,s:syscu
  214. 485 print;c$"   ";
  215. 486 nextz
  216. 487 return
  217. 489 forx=1to5
  218. 490 ifw(x)<0then493
  219. 491 nextx
  220. 492 goto497
  221. 493 nextw1
  222. 497 gosub628
  223. 498 ifv8=1andp(j,13)>0thenk=1:goto500
  224. 499 k=0
  225. 500 poke214,23:poke211,26:syscu
  226. 501 printe$(2);
  227. 502 poke204,0
  228. 503 getx$:ifx$=""thengosub296:goto503
  229. 504 ifpeek(207)then504
  230. 505 poke204,1:gosub803
  231. 506 ifx$=chr$(13)andw1<3then468
  232. 507 x=asc(x$):ifx>48andx<58thenx=x-48:goto512
  233. 508 ifx>132andx<137thenx=x-123:goto512
  234. 511 goto516
  235. 512 ifx>0andx<7then521
  236. 513 ifp(j,x+1)<>0then517
  237. 514 onx-6goto549,564,573,586,602,616,623
  238. 516 d=1:gosub803:gosub795:goto500
  239. 517 d=4:gosub803:gosub795:goto500
  240. 521 ifp(j,x)<>0then517
  241. 522 q=0
  242. 523 fory=1to5
  243. 524 ifw(y)=xthenq=q+x
  244. 525 nexty
  245. 526 x1=q-(x*3)
  246. 527 s=14+((j-1)*4+1)
  247. 528 p(j,x)=q
  248. 529 p(j,7)=p(j,7)+x1
  249. 530 p(j,16)=p(j,16)+q
  250. 531 p(j,19)=p(j,19)+q
  251. 532 ifk=1andp(j,13)>0thenp(j,18)=p(j,18)+100:p(j,19)=p(j,19)+100
  252. 533 ifp(j,16)>62thengosub541
  253. 534 z=1+x
  254. 535 poke214,z:poke211,s:syscu
  255. 536 ifp(j,x)=0thenp(j,x)=-1:print"---";:goto538
  256. 537 uu=p(j,x):gosub314:printua$;
  257. 538 poke214,8:poke211,s:syscu
  258. 539 uu=p(j,7):gosub314:printchr$(154);ua$;
  259. 540 goto662
  260. 541 ifp(j,17)=35then545
  261. 542 p(j,17)=35:p(j,19)=p(j,19)+35
  262. 543 poke214,18:poke211,s:syscu
  263. 544 uu=p(j,17):gosub314:printua$;
  264. 545 return
  265. 549 gosub640
  266. 550 v8=0
  267. 551 forx3=1to6
  268. 552 ifv1(x3)>=3thenv8=1
  269. 553 nextx3
  270. 554 ifv8=1thengosub646
  271. 555 ifv8=0thenq=0
  272. 556 gosub654
  273. 557 p(j,15)=p(j,15)+q
  274. 558 p(j,19)=p(j,19)+q
  275. 559 ifk=1andp(j,13)>0thenp(j,18)=p(j,18)+100:p(j,19)=p(j,19)+100
  276. 560 goto662
  277. 564 gosub640
  278. 565 v8=0
  279. 566 forx3=1to6
  280. 567 ifv1(x3)>=4thenv8=1
  281. 568 nextx3
  282. 569 goto554
  283. 573 gosub640
  284. 574 v8=0
  285. 575 v9=0
  286. 576 forx3=1to6
  287. 577 ifv1(x3)=3thenv8=1
  288. 578 ifv1(x3)=2thenv9=1
  289. 579 nextx3
  290. 580 ifv8<>1orv9<>1thenq=0:goto582
  291. 581 q=25
  292. 582 goto556
  293. 586 gosub628
  294. 587 v8=0:forb=1to5:v8=v8+v1(b):nextb
  295. 588 ifv8=5then598
  296. 589 v8=0:forb=2to6:v8=v8+v1(b):nextb
  297. 590 ifv8=5then598
  298. 591 v8=0:forb=1to4:v8=v8+v1(b):nextb
  299. 592 ifv8=4then598
  300. 593 v8=0:forb=2to5:v8=v8+v1(b):nextb
  301. 594 ifv8=4then598
  302. 595 v8=0:forb=3to6:v8=v8+v1(b):nextb
  303. 596 ifv8=4then598
  304. 597 q=0:goto556
  305. 598 q=30:goto556
  306. 602 gosub628
  307. 603 ifv8>4then606
  308. 604 q=0
  309. 605 goto556
  310. 606 v8=0
  311. 607 forx3=1to6
  312. 608 v8=v8+v1(x3)*x3
  313. 609 nextx3
  314. 610 ifv8=15orv8=20thenq=40:goto556
  315. 611 q=0
  316. 612 goto556
  317. 616 gosub628
  318. 617 ifv8<>1thenq=0:goto556
  319. 618 q=50
  320. 619 goto556
  321. 623 gosub646
  322. 624 goto556
  323. 628 v8=0
  324. 629 forx3=1to6:v1(x3)=0:nextx3
  325. 632 forx3=1to5:v1(w(x3))=1:nextx3
  326. 635 forx3=1to6:v8=v8+v1(x3):nextx3
  327. 638 return
  328. 640 forx3=1to6:v1(x3)=0:nextx3
  329. 641 forx3=1to5:v1(w(x3))=v1(w(x3))+1:nextx3:return
  330. 646 q=0
  331. 647 forx3=1to5:q=q+w(x3):nextx3:return
  332. 654 x=x+1:z=x+1
  333. 655 p(j,x)=q:poke646,13
  334. 656 s=14+((j-1)*4+1)
  335. 657 poke214,z:poke211,s:syscu
  336. 658 ifp(j,x)=0thenp(j,x)=-1:printc$"---";:goto660
  337. 659 uu=p(j,x):gosub314:printua$;
  338. 660 return
  339. 662 forz=16to20
  340. 663 ifp(j,z-1)=0then668
  341. 664 ifz=16thenpoke646,10
  342. 665 ifz=20thenpoke646,5
  343. 666 poke214,z:poke211,s:syscu
  344. 667 uu=p(j,z-1):gosub314:printua$;
  345. 668 poke646,13:nextz
  346. 669 nextj,i
  347. 673 y=0
  348. 674 fori=1toa
  349. 675 ify>p(i,19)then677
  350. 676 y=p(i,19):x=i
  351. 677 nexti
  352. 678 poke646,10
  353. 679 forz=21to24
  354. 680 poke214,z:poke211,0:syscu
  355. 681 printb1$;
  356. 682 nextz:poke646,7
  357. 684 poke214,22:poke211,4:syscu
  358. 686 printc$;" [211][201][197][199][197][210]:  ";chr$(157);a$(x);y;chr$(157);" [208]unkte"
  359. 687 gosub457
  360. 688 poke65,v1(0):poke66,p(0,0)
  361. 691 g(6)=y
  362. 693 forj=1toa
  363. 694 fori=1to5
  364. 695 ifg(i)<p(j,19)thengosub735:goto697
  365. 696 nexti
  366. 697 nextj:pokev+21,0
  367. 705 z=24:poke646,13
  368. 709 poke214,z:poke211,9:syscu
  369. 710 print" [208]lay again (j/n) ?";chr$(154);:poke204,0:pokesi+24,31:gosub275
  370. 711 getx$:ifx$=""thengosub280:goto711
  371. 712 ifx$<>"j"andx$<>"n"then711
  372. 713 ifpeek(207)then713
  373. 714 poke204,1
  374. 715 ifx$="n"then784
  375. 716 gosub280
  376. 717 poke214,z:poke211,7:syscu
  377. 718 print"[199]leiche [194]esetzung (j/n) ?";
  378. 719 poke204,0
  379. 720 getx$:ifx$=""thengosub280:goto720
  380. 721 ifx$<>"j"andx$<>"n"then720
  381. 722 ifpeek(207)then722
  382. 723 poke204,1:gosub280
  383. 725 fori=0to12:poke211,0:poke214,12-i:syscu
  384. 726 printb1$:gosub280
  385. 727 poke211,0:poke214,12+i:syscu
  386. 728 printb1$:nexti:pokev+21,0:gosub803
  387. 732 ifx$="j"then334
  388. 733 ifx$="n"thenpoke2,1:goto333
  389. 735 forx3=5toistep-1
  390. 736 g(x3)=g(x3-1):g$(x3)=g$(x3-1):nextx3
  391. 738 g(i)=p(j,19):g$(i)=a$(j):return
  392. 744 printc$chr$(150);
  393. 745 poke214,0:poke211,15:syscu
  394. 746 printb2$;
  395. 747 poke211,15:syscu:printa$(j);
  396. 748 ifj=1thenx=a:goto750
  397. 749 x=j-1
  398. 750 z=1:s=15+((x-1)*4):poke646,13
  399. 751 poke214,z:poke211,s:syscu
  400. 752 foruu=1to3:printchr$(166);:nextuu
  401. 753 s=15+((j-1)*4):ua$=right$(str$(j),1)
  402. 754 poke214,z:poke211,s:syscu
  403. 755 print"-";ua$;"-";:return
  404. 760 s=-3
  405. 761 forx3=1to5:s=s+4:ifsw=1then764
  406. 762 ifw(x3)>=0thennextx3:goto769
  407. 763 w(x3)=w(x3)*-1
  408. 764 forz=22to24:poke214,z:poke211,s:syscu:print"   ";:nextz,x3
  409. 769 s=-3:poke646,14
  410. 770 forx=1to5:s=s+4:poke214,22:poke211,s:syscu
  411. 773 fork=1to9
  412. 774 ifk=4thenpoke214,23:poke211,s:syscu
  413. 775 ifk=7thenpoke214,24:poke211,s:syscu
  414. 776 printk$(k,w(x));:nextk,x:poke646,13
  415. 779 return
  416. 783 poke65,v1(0):poke66,p(0,0)
  417. 784 pokev+33,0:printchr$(147):gosub358
  418. 785 poke214,16:poke211,4:poke646,10:syscu:print"[164][164][164][164][164][164][164][164][164]"
  419. 786 printspc(4)c$" [199] [193] [205] [197] ":printspc(4)c$"         ":printspc(4)c$" o v e r "
  420. 787 pokev+21,255:poke214,24:poke211,9:syscu
  421. 788 poke646,7:printc$" _  [212]aste druecken ";
  422. 789 getx$:ifx$<>chr$(95)thengosub280:goto789
  423. 790 printchr$(147);:pokev+21,0:pokev+22,200:pokesi+24,0:pokew8,0:pokew9,0
  424. 791 pokev+24,21:poke657,0:end
  425. 795 ifpeek(207)then795
  426. 796 poke204,1
  427. 797 poke214,23:poke211,26:syscu
  428. 798 poke646,7:printe$(d);:poke204,0
  429. 799 getx$:ifx$=""thengosub288:goto799
  430. 800 ifpeek(207)then800
  431. 801 poke204,1:poke211,26:syscu
  432. 802 printb2$" ";chr$(153);
  433. 803 pokesi+5,240:pokesi+6,240
  434. 804 pokesi+19,240:pokesi+20,240
  435. 805 pokesi+12,240:pokesi+13,240:return
  436. 832 pokev+21,0:pokev+22,200
  437. 833 printchr$(147);spc(12);c$;" [212]rickly-[201]nfo ";chr$(17)
  438. 834 print" [196]ie [211]pielregeln des bekannten [203]niffel-"
  439. 835 print" spiels sind entsprechend anzuwenden.";chr$(17)
  440. 836 print" [196]ie [211]core-[212]abelle wird angezeigt, wenn"
  441. 837 print" die [211]pielerbesetzung sich aendern soll"
  442. 838 print" und nach [194]eendigung des [211]piels.";chr$(17)
  443. 839 print" [196]ie [212]astaturbelegung ist aus dem [211]piel-"
  444. 840 printchr$(145)" aufbau ersichtlich.";chr$(17)
  445. 841 print" [198]olgende [212]asten haben [218]usatzfunktionen:"
  446. 842 printspc(5);"_ = [206]amensangabe korrigieren"
  447. 843 printspc(5);"8 = letzten [215]urf nochmals anzeigen"
  448. 844 printspc(5);"9 = kompletter, neuer [215]urf";chr$(17)
  449. 845 print" [196]er [211]pieler kann seine [208]unktzahl nach"
  450. 846 print" <[210][197][212][213][210][206]> setzen, ohne alle [215]uerfe ge-"
  451. 847 print" spielt zu haben."
  452. 848 print" [196]as [211]piel wird mit nochmaligem <[210][197][212][213][210][206]>"
  453. 849 printchr$(145);" fortgesetzt ([214]ersehen), falls noch"
  454. 850 print" [215]uerfe zur [214]erfuegung stehen.";:poke65,v1(0):poke66,p(0,0)
  455. 851 poke2,4:pokesi+24,21:gosub275
  456. 852 getx$:ifx$=""thengosub280:goto852
  457. 853 gosub803:pokesi+24,31:poke2,3:pokev+22,204:return
  458. 924 data0
  459. 925 data"[211]pieler-[206]ame:            [215]urf-[206]r:-  - "
  460. 926 data"[168][168][211]pieler....[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  461. 927 data" 1=[197]iner....."," 2=[218]weier...."
  462. 928 data" 3=[196]reier...."," 4=[214]ierer...."
  463. 929 data" 5=[198]uenfer..."," 6=[211]echser..."
  464. 930 data"[168]   + / -                            "
  465. 931 data" 7=3er  [208]asch"," 8=4er  [208]asch"
  466. 932 data" 9=[198]ull [200]ouse"
  467. 933 data"[198]1=[203]l.  [211]tr..","[198]3=[199]r.  [211]tr.."
  468. 934 data"[198]5=1. [212][210][201][195][203][204][217]","[198]7=[195]hance...."
  469. 935 data"[168][211]umme unten.                        "
  470. 936 data" [211]umme oben.."," [194]onus (+35)."
  471. 937 data" w. [212][210][201][195][203][204][217]'s"
  472. 938 data"[168]  [212][160][207] [212] [193] [204]  [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  473. 939 data"(1) (2) (3) (4) (5)"
  474. 941 data26,20,3,66,65,29,69,6,133,65
  475. 942 data26,20,4,226,65,29,69,4,27,65
  476. 943 data26,69,3,66,65,46,118,6,133,65
  477. 944 data39,18,4,226,65,32,219,4,27,65
  478. 945 data26,20,4,90,65,29,69,8,180,65
  479. 946 data26,20,6,133,65,29,69,5,123,65
  480. 947 data26,20,4,90,65,43,219,8,180,65
  481. 948 data34,207,6,133,65,26,20,5,123,65
  482. 949 data34,207,2,231,65,29,69,5,207,65
  483. 950 data23,59,3,169,65,29,69,2,231,65
  484. 951 data26,20,4,90,65,34,207,8,180,65
  485. 952 data26,20,6,133,65,21,237,5,123,65
  486. 953 data26,20,4,27,65,23,59,4,27,65
  487. 954 data21,237,4,27,65,23,59,4,226,65
  488. 955 data19,137,4,27,195,13,10,0,0,65
  489. 956 data14,162,0,0,65,16,109,0,0,65
  490. 957 data17,103,4,90,65,19,137,8,180,65
  491. 958 data21,237,6,133,65,23,59,5,123,65
  492. 959 data26,29,4,90,65,29,69,8,180,65
  493. 960 data32,219,6,133,65,34,207,5,123,65
  494. 961 data34,207,4,90,65,29,69,8,180,65
  495. 962 data23,59,6,133,65,29,69,5,123,65
  496. 963 data26,20,4,90,65,34,207,8,180,65
  497. 964 data32,219,6,133,65,29,69,5,123,65
  498. 965 data26,20,4,90,65,34,207,8,180,65
  499. 966 data26,20,6,133,65,21,237,5,123,65
  500. 967 data26,20,3,66,65,23,59,6,133,65
  501. 968 data21,237,4,226,65,19,137,4,27,65
  502. 969 data17,103,4,90,65,21,237,8,180,65
  503. 970 data26,20,6,133,65,21,237,5,123,65
  504. 971 data17,203,4,90,65,0,0,4,226,55,0,0
  505. 972 data5,123,55,0,0,5,207,55,0,0,6,39
  506. 973 data55,-3,-3,-3,-3,0
  507.